# load packages ----------------------------------------------------------------

#library(tidyverse)
#library(rvest)
#
## set url ----------------------------------------------------------------------
#
#first_url <- "https://collections.ed.ac.uk/art/search/*:*/Collection:%22edinburgh+college+of+art%7C%7C%7CEdinburgh+College+of+Art%22?offset=0"
#
## read first page --------------------------------------------------------------
#
#page <- read_html(first_url)
#
## scrape titles ----------------------------------------------------------------
#
#titles <- page %>%
#  html_nodes(".iteminfo") %>%
#  html_node("h3 a") %>%
#  html_text() %>%
#  ___()
#
## scrape links -----------------------------------------------------------------
#
#links <- page %>%
#  html_nodes(".iteminfo") %>%
#  html_node("h3 a") %>%
#  html_attr("href") %>%
#  str_replace("\\.", "___")
#
## scrape artists ---------------------------------------------------------------
#
#artists <- page %>%
#  html_nodes(".iteminfo") %>%
#  html_node(".artist") %>%
#  ___
#
## put together in a data frame -------------------------------------------------
#
#first_ten <- tibble(
#  title = ___,
#  artist = ___,
#  link = ___
#)
#
## scrape second ten paintings --------------------------------------------------
#
#second_url <- "___"
#
#page <- read_html(second_url)
#...
#
#second_ten <- tibble(
#  ...
#)